Top 10k strings from Understanding Evolution (1983)(Sinclair Programs)(16k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 a$(f)="d":
   2 ''"Must be between 0 and 100":
   1 r=p0/(sb*bm+sy*ym)
   1 k0;''"Must be 0, 1 or 2":
   1 UNDERSTANDING EVOLUTION     By Dr Eliot Gingold
   1 Evolution 
   1 ;ym;" yellow mice out of ";(2
   1 ;ym1;" YELLOW SURVIVED FROM ";ym;
   1 ;bm1;" BLACK  SURVIVED FROM ";bm;
   1 ;''"Must be between 0 and 125.":
   1 ;'"Three situations are possible,"'"selection against yellow ---"'" i.e. black more fit to survive"'"selection against black ---"'" i.e. yellow more fit to survive"'"or no selection ---"'" i.e. both types equally fit"
   1 ;'" Press any key to start. "
   1 ;"You may follow the changes in"'"this population during up to 50"'"generations."''
   1 ;"You can try any of these,"'"and if you have selection you"'"may determine its strength."'
   1 ;"What is the starting % of"'"yellow alleles? --- (%y)"''"(Remember that many will"'"be hidden in black mice!)"''"Input a number up to 100"
   1 ;"WHat is the strength of"'"selection measured as a % ?"''"(100% would mean that the unfit"'"type is lethal)"''"Input a number up to 100"
   1 ;"This program simulates a local"'"population of mice. Two types"'"are found,black mice -- 
   1 ;"The difference is due to a gene"'"with two alleles. Y(black) is"'"dominant over y(yellow)."'"This means that"'"  YY -- black"'"  Yy -- black"'"  yy -- yellow"'''
   1 ;"Selection could be "''" Against yellow     INPUT 0"'" Against black      INPUT 1"'" Or no selection    INPUT 2"
   1 ;"Remember a 
   1 ;"Pressing m continues run, but"'"restarts graph (n=newrun,s=stop)"
   1 ;"Press m for more"'"n for new start, s to stop"
   1 ;"Population max. ";p0
   1 ;"PRESS M FOR MORE, G FOR GRAPH"
   1 ;"No selection  "
   1 ;"NEXT GENERATION (";n-1
   1 ;"Input the maximum population"'"that the environment can hold."'"(can be up to 125)"
   1 ;"Generation"
   1 ;"GRAPH FULL "'
   1 ;"Each generation the population"'"will at first double. But not"'"all can survive. You will be"'"asked to fix the maximum numbers"'"capable of surviving."
   1 ;"0   10   20   30   40   50";
   1 ;" Press any key to continue. "
   1 ;" NOT ALL CAN SURVIVE "
   1 ;"  (Last Generation =";(
   1 ;"                            "
   1 ;"                                "
   1 *ym1/ym+.5
   1 *ps-cd)/(2
   1 *p-cd);" yellow alleles out of ";(4
   1 *bm1/bm+.5
   1 (x>r*sy)) 
   1 (x>r*sb)) 
   1 (sp);"% selection against yellow"
   1 (sp);"% selection against black"
   1 ((a$(f)>"0") 
   1 ((a$(f)="0") 
   1 "'"     and yellow mice -- ";
   1  mouse could be YY,"'"or Yy, a carrier of yellow."'"Yellow alleles can hide in black"'"mice!"'''
   1      Sinclair Programs, May 83